home *** CD-ROM | disk | FTP | other *** search
/ The Cartoon Guide to Physics / The Cartoon Guide to Physics.iso / pc / physdata / glossary.dir / 00050.ls < prev    next >
Encoding:
Text File  |  1995-09-10  |  1.1 KB  |  37 lines
  1. on mouseDown
  2.   global StartTermLine, EndTermLine, SelectedStory, NowMode, SelectedLetter, SelectedLine
  3.   puppetSprite(18, 0)
  4.   puppetSprite(44, 0)
  5.   puppetSprite(23, 0)
  6.   puppetSprite(26, 0)
  7.   puppetSprite(28, 0)
  8.   puppetSprite(22, 0)
  9.   updateStage()
  10.   set SelectedLine to 0
  11.   set the castNum of sprite 38 to the number of cast "down"
  12.   if NowMode = "Stories" then
  13.     set theField to "StoryList"
  14.     set theSelected to SelectedStory
  15.   else
  16.     set theField to "AbcList"
  17.     set theSelected to SelectedLetter
  18.   end if
  19.   repeat while the mouseDown
  20.     if StartTermLine <> 2 then
  21.       puppetSound("Click")
  22.       set EndTermLine to EndTermLine - 1
  23.       set StartTermLine to StartTermLine - 1
  24.       set Counter to 0
  25.       repeat with i = StartTermLine to EndTermLine
  26.         set newItem to item i of line theSelected of field theField
  27.         set Counter to Counter + 1
  28.         put newItem into line Counter of field "termsText"
  29.       end repeat
  30.       if StartTermLine = 2 then
  31.         set the castNum of sprite 39 to 0
  32.       end if
  33.     end if
  34.     updateStage()
  35.   end repeat
  36. end
  37.